unit fmDM;

interface

uses
  System.SysUtils, System.Classes, UniProvider, MySQLUniProvider, Data.DB,
  MemDS, DBAccess, Uni;

type
  TDM = class(TDataModule)
    MysqlConnection: TUniConnection;
    MySQLUniProvider1: TMySQLUniProvider;
    DSReestr: TDataSource;
    UniTableSearch: TUniTable;
    DSSearch: TDataSource;
    UniTableSearchid: TIntegerField;
    UniTableSearchgoszakup_id: TIntegerField;
    UniTableSearchname: TStringField;
    UniTableSearchdate_reg: TStringField;
    UniTableSearchdate_lastupdate: TStringField;
    UniTableSearchrole: TStringField;
    UniTableSearchgos_reest_zak: TStringField;
    UniTableSearchrnn: TStringField;
    UniTableSearchbin: TStringField;
    UniTableSearchiin: TStringField;
    UniTableSearchname_kazakh: TStringField;
    UniTableSearchname_russian: TStringField;
    UniTableSearchresident: TStringField;
    UniTableSearchkato: TStringField;
    UniTableSearchregion: TStringField;
    UniTableSearchgos_reg_num: TStringField;
    UniTableSearchgos_reg_date: TStringField;
    UniTableSearchreport_admin_name: TStringField;
    UniTableSearchkopf: TStringField;
    UniTableSearchkfc: TStringField;
    UniTableSearchorgan_size: TStringField;
    UniTableSearchsector_code: TStringField;
    UniTableSearchotmetka: TStringField;
    UniTableSearchchief_name: TStringField;
    UniTableSearchchief_iin: TStringField;
    UniTableSearchchief_rnn: TStringField;
    UniTableSearchchief_employee: TStringField;
    UniTableSearchemployees_id: TIntegerField;
    UniTableSearchcountry: TStringField;
    UniTableSearchadress_fact: TStringField;
    UniTableSearchadress_jur: TStringField;
    UniTableSearchphone: TStringField;
    UniTableSearchemail: TStringField;
    UniTableRep1: TUniTable;
    UniTableRep1id: TIntegerField;
    UniTableRep1goszakup_id: TIntegerField;
    UniTableRep1name: TStringField;
    UniTableRep1date_reg: TStringField;
    UniTableRep1date_lastupdate: TStringField;
    UniTableRep1role: TStringField;
    UniTableRep1gos_reest_zak: TStringField;
    UniTableRep1rnn: TStringField;
    UniTableRep1bin: TStringField;
    UniTableRep1iin: TStringField;
    UniTableRep1name_kazakh: TStringField;
    UniTableRep1name_russian: TStringField;
    UniTableRep1resident: TStringField;
    UniTableRep1kato: TStringField;
    UniTableRep1region: TStringField;
    UniTableRep1gos_reg_num: TStringField;
    UniTableRep1gos_reg_date: TStringField;
    UniTableRep1report_admin_name: TStringField;
    UniTableRep1kopf: TStringField;
    UniTableRep1kfc: TStringField;
    UniTableRep1organ_size: TStringField;
    UniTableRep1sector_code: TStringField;
    UniTableRep1otmetka: TStringField;
    UniTableRep1chief_name: TStringField;
    UniTableRep1chief_iin: TStringField;
    UniTableRep1chief_rnn: TStringField;
    UniTableRep1chief_employee: TStringField;
    UniTableRep1employees_id: TIntegerField;
    UniTableRep1country: TStringField;
    UniTableRep1adress_fact: TStringField;
    UniTableRep1adress_jur: TStringField;
    UniTransaction1: TUniTransaction;
    UniQueryReestr: TUniQuery;
    UniQuerySearch: TUniQuery;
    UniQueryDetail: TUniQuery;
    IntegerField4: TIntegerField;
    IntegerField5: TIntegerField;
    StringField30: TStringField;
    StringField31: TStringField;
    StringField32: TStringField;
    StringField33: TStringField;
    StringField34: TStringField;
    StringField35: TStringField;
    StringField36: TStringField;
    StringField37: TStringField;
    StringField38: TStringField;
    StringField39: TStringField;
    StringField40: TStringField;
    StringField41: TStringField;
    StringField42: TStringField;
    StringField43: TStringField;
    StringField44: TStringField;
    StringField45: TStringField;
    StringField46: TStringField;
    StringField47: TStringField;
    StringField48: TStringField;
    StringField49: TStringField;
    StringField50: TStringField;
    StringField51: TStringField;
    StringField52: TStringField;
    StringField53: TStringField;
    StringField54: TStringField;
    IntegerField6: TIntegerField;
    StringField55: TStringField;
    StringField56: TStringField;
    StringField57: TStringField;
    StringField58: TStringField;
    DataSourceDetail: TDataSource;
    UniTableEmail: TUniTable;
    procedure UniTableSearchAfterOpen(DataSet: TDataSet);
    procedure UniQueryReestrAfterOpen(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

{%CLASSGROUP 'System.Classes.TPersistent'}

uses fmMain;

{$R *.dfm}

procedure TDM.UniQueryReestrAfterOpen(DataSet: TDataSet);
begin
  Main.RzStatusPane1.Caption:= IntToStr(UniQueryReestr.RecordCount);
end;

procedure TDM.UniTableSearchAfterOpen(DataSet: TDataSet);
begin
 Main.RzStatusPane1.Caption:= IntToStr(UniTableSearch.RecordCount);
end;

end.
